perm filename TEST.F4[NEW,LCS]2 blob sn#447722 filedate 1979-06-04 generic text, type C, neo UTF8
COMMENT āŠ—   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002
C00003 ENDMK
CāŠ—;

	DATA MM/"561004020100/
	DIMENSION I(72)
10	FORMAT(' TYPE   '$)
20	FORMAT(A5,I)
30	FORMAT(72A1)
40	FORMAT(72F)
50	TYPE 10
	ACCEPT 20,J,K
	CALL IFILE(1,J)
	READ (1,30)I
	REREAD 40,A,B,C
60	CALL IFILE(1,J)
	READ(1,30)I
	REREAD 40,A,B,C
70	REREAD 40,A,B,C

80	READ(1,100)A,B,C
	TYPE 100,A,B,C
90	IF(K.NE.0)REREAD 100,A,B,C
	TYPE 100,A,B,C
100	FORMAT(78F)
	END